;(deftemplate cyclist (slot name) (slot surname) (slot xposition) (slot yposition) (slot experience) (slot avrSpeed)(slot isSafe))
;(assert (cyclist (name Andrzej) (surname Prokopczyk) (xposition 3) (yposition 4) (experience 12) (avrSpeed 100) (isSafe true)))
(deftemplate person (slot x ) (slot y))
(defrule ruch ?f1<- (person (x ?x) (y ?y)) =>(printout t ?x " has blue eyes." crlf)(retract ?f1) (assert (person (x (+ ?x 1) ) (y (+ ?y 1)))))





;(assert (person (x 3) (y 5))